unit uDmMain;

interface

uses
  SysUtils, Classes, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels,
  dxSkinsForm, ImgList, Controls, Windows, WideStrings, DbxDatasnap, DB, SqlExpr,
  cxGraphics;

type
  TDmMain = class(TDataModule)
    SkinSys: TdxSkinController;
    ConMain: TSQLConnection;
  private

  public
    procedure LoadSysSkin(SkinFile: string);
  end;

var
  DmMain: TDmMain;

implementation

{$R *.dfm}

procedure TDmMain.LoadSysSkin(SkinFile: string);
begin
  with Self.SkinSys do
  begin
    SkinName := 'UserSkin';
    dxSkinsUserSkinLoadFromFile(SkinFile);
    NativeStyle := False;
    UseSkins := True;
  end;
end;

end.
